<%

Function usuario_validar_usuario(id)

			DIM codigo, nome, sobrenome, senha, senha_conf
			
			codigo = requestFORM("codigo")
			senha = requestFORM("senha")
			senha_conf = requestFORM("senha_conf")
			
			str = "SELECT login, email from usuarios_temp where id='"&id&"' and codigo='"&codigo&"'"
  			Set rs = conexao_geral.Execute(str)	
			
			if(senha<>"" and senha=senha_conf and not rs.eof) then
			
					str = "INSERT into usuarios "
					str = str & "(login, email, senha) "
					str = str & "VALUES ('" & rs("login") & "', "	
					str = str & "'" & rs("email") & "', "		
					str = str & "'" & md5(senha) & "')"	
					Set rsI = conexao_geral.Execute(str)
					
					usuario_deletar_usuario_temporario id			
			
					usuario_validar_usuario = TRUE
			
			Else
			
					usuario_validar_usuario = FALSE
			
			End IF
			
			

End Function

Function usuario_deletar_usuario_temporario(id)

		str = "DELETE FROM usuarios_temp where id="&id
  		Set rs = conexao_geral.Execute(str)			

End Function

%>